Help for this page
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"; }
www.com | www.net | www.org
No recent polls found