8 lines
118 B
Perl
8 lines
118 B
Perl
use strict;
|
|
use Getopt::Long;
|
|
|
|
my $len = 0;
|
|
my %h = ('length' => \$len);
|
|
GetOptions (\%h, 'length=i');
|
|
|
|
print "$len\n" |