foreach my $file (@ARGV) { open my $fh => ">", $file or die "Failed to open $file: $!\n"; print $fh "Buzzle\n"; close $fh or die "Failed to close $file: $!\n"; }