perl 从命令行读取文件并打开

my $file = $ARGV[0];
open(FILE,"$file") or die "can't open $file";