my ( $arg1 , $arg2, $arg3 )=@ARGV;