#!/usr/local/bin/perl -w
    use Getopt::Long;
    GetOptions ('l|length=i');
    my $length = $opt_l || 8;
    my $password = "";
    my $x = 0;

    srand (time|$$);

    for ($x=0; $x < $length; $x++){
        my $intval = 50;
        $password .= sprintf ("%c", $intval);
    }

    print "Password $password \n";