use Getopt::Long;


my $data = "file1";
my $length = 4;
my $verbose;

GetOptions ("length=i" => \$length, "file=s"   => \$data,"verbose"  => \$verbose);