Select Code to Download

#!/usr/bin/perl -w

...
if( $opt_h ) { $height = $opt_h ; }

print "$height:$width\n";

Global symbol "$opt_w" requires explicit package name at ./adjust.pl l
+ine 14.

#!/usr/bin/perl -w

...
if( $opt_h ) { $height = $opt_h ; }

print "$width:$height\n";

$ ./my.pl -w 1000 -h 9

500:500