Select Code to Download

#!/usr/bin/env perl

...
}

print "rows $rows columns $columns\n";

rows 45 columns 118