open TEST,"@ARGV[0]";
$flag ="ON"
while(<TEST>){
if(/test/ and $flag eq "ON"){print "start";$flag ="OFF"}}
close TEST