#!/usr/bin/perl
$filename = @ARGV[0];
open(FILE, ">$filename");
print{FILE}"#!/usr/bin/perl\n# $filename\nuse warnings\;\nuse strict\;\n";
close(FILE);
system("chmod 755 $filename");