open(FILE,"<", $ARGV[0]) or die "Open failed for $ARGV[0]: $!";           
	my @lines=<FILE>;                 

##</code><code>##

$ perl script.pl Working_On.csv