Select Code to Download

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";
}

foreach my $file (@ARGV) {
    truncate $file, 0 or die "Failed to truncate $file: $!\n";
}