#!/usr/bin/perl -w
use strict;
use Getopt::Long;

my ($lines, $cols) = (5, 16);

GetOptions ('line=s' => \$lines, 'col=s' => \$cols);

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