Select Code to Download

#!/usr/bin/perl -w
use strict;
...
GetOptions ('line=s' => \$lines, 'col=s' => \$cols);

print "Lines: $lines Cols: $cols\n";