#!/usr/bin/perl -w

shift @ARGV; # here its is not working
print ; 

sub func
{
my $a=shift; # here its is working
my $b=shift;
print $a,$b;
return $a+$b;
}
 
print func(10,10);