[linux host] $ grep "Something" sample.log | perl myParser.pl 

my $line;
foreach $line (<>) {
...
}

##</code><code>##

$ grep "Something" sample.log | perl myParser.pl VERTICAL

##</code><code>##

$ grep "Something" sample.log | perl myParser.pl COLUMN

##</code><code>##

#!/usr/bin/perl
use strict;
my $param0 = $ARGV[0];
my $line;

print "\nFirst Arguement is : $param0";

foreach $line (<>) {
...
}

##</code><code>##

Can't open VERTICAL: No such file or directory at SimpleTest.pl line 11.
First Arguement is : VERTICAL