perl scriptname filename1