gistfile1.pl

#!/usr/local/bin/perl
$msg="Hello, world.\n";
if ($#ARGV >= 0) {
  while(defined($arg=shift(@ARGV))) {
    $outfilename = $arg;
    open(FILE, ">" . $outfilename) || die "Nao foi possivel escrever $arg: $!\n";
    print (FILE $msg);
    close(FILE) || die "Nao foi possivel fechar $arg: $!\n";
  }
} else {
  print ($msg);
}
1;