Perl/Math::Bezier ... plotting a bezier curve given some control points

doesn't actually draw anything - just gets the data points necessary to plot one. I did this because I needed a series of 22 numbers starting with 0.0125 that gradually ramped up to 7.4 with step getting larger for each iteration.

#!/usr/local/bin/perl -w

use strict;
use Math::Bezier;

my $MAXX = 22.0;
my $MAXY = 7.4;

my $x0 = 0;
my $y0 = 0.0125;
my $x1 = $MAXX*0.5;
my $y1 = 0.0000;
my $x2 = $MAXX;
my $y2 = $MAXY;

my @control = ( $x0, $y0, $x1, $y1, $x2, $y2 );


my $bezier = Math::Bezier->new(@control);

for ( my $i = 0; $i < ($MAXX+1); $i++) {

    my $divisor = $i / $MAXX;
    my ( $x, $y )  = $bezier->point($divisor);
    printf "divisor=%8.4f x=%8.4f y=%8.4f\n", $divisor, $x, $y;

}



unix:~ 1607 $ ./bezier.pl 
divisor=  0.0000 x=  0.0000 y=  0.0125
divisor=  0.0455 x=  1.0000 y=  0.0267
divisor=  0.0909 x=  2.0000 y=  0.0715
divisor=  0.1364 x=  3.0000 y=  0.1469
divisor=  0.1818 x=  4.0000 y=  0.2530
divisor=  0.2273 x=  5.0000 y=  0.3897
divisor=  0.2727 x=  6.0000 y=  0.5570
divisor=  0.3182 x=  7.0000 y=  0.7550
divisor=  0.3636 x=  8.0000 y=  0.9836
divisor=  0.4091 x=  9.0000 y=  1.2428
divisor=  0.4545 x= 10.0000 y=  1.5326
divisor=  0.5000 x= 11.0000 y=  1.8531
divisor=  0.5455 x= 12.0000 y=  2.2042
divisor=  0.5909 x= 13.0000 y=  2.5860
divisor=  0.6364 x= 14.0000 y=  2.9983
divisor=  0.6818 x= 15.0000 y=  3.4413
divisor=  0.7273 x= 16.0000 y=  3.9150
divisor=  0.7727 x= 17.0000 y=  4.4192
divisor=  0.8182 x= 18.0000 y=  4.9541
divisor=  0.8636 x= 19.0000 y=  5.5197
divisor=  0.9091 x= 20.0000 y=  6.1158
divisor=  0.9545 x= 21.0000 y=  6.7426
divisor=  1.0000 x= 22.0000 y=  7.4000

Perl get SSL certificate subject alternative names (aka aliases)

#!/usr/local/bin/perl -w

use strict;

my $website = $ARGV[0] || '';

die "usage: $0 <website:sslport>\n" if (($website eq '') || ($website !~ m!^\S+:\d+$!o));

my $openssl = '/usr/local/bin/openssl';

die "openssl binary not found at $openssl\n" if ( ! -x $openssl );

my $s_client_output = qx{ echo | $openssl s_client -connect $website 2> /dev/null };

my $certcount = 0;

while ($s_client_output =~ m!(-----BEGIN CERTIFICATE-----.*?-----END CERTIFICATE-----).*?!smg) {
    my $cert_text = $1;
    my $x509_out = qx{ echo '$cert_text' | $openssl x509 -noout -text 2> /dev/null };
    while ($x509_out =~ m!DNS:([\w\-\.\*]+).*?!smg) {
        my $alias = $1;
        printf "alias for %s (%d) == %s\n", $website, $certcount, $alias;
    }
    $certcount++;
}