#!/usr/bin/perl -w

use strict;
use Getopt::Std;

my $width = 500;
my $height = 500;

getopts( 'w:h:' );
if( $opt_w ) { $width = $opt_w ; }
if( $opt_h ) { $height = $opt_h ; }

print "$height:$width\n";

##</code><code>##

Global symbol "$opt_w" requires explicit package name at ./adjust.pl line 14.

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Getopt::Std;

my $width = 500;
my $height = 500;
my $opt_w;
my $opt_h;

getopts( 'w:h:' );
if( $opt_w ) { $width = $opt_w ; }
if( $opt_h ) { $height = $opt_h ; }

print "$width:$height\n";

##</code><code>##

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

##</code><code>##

500:500