my $Usage ="\nUsage: $0 <参数1> <参数2>\n\n";
if(@ARGV != 2)
{
	print "$Usage";
	exit -1;
}
my ($file) = $ARGV[0];
if(!($file ))
{
        die "$Usage";
}