Help for this page

Select Code to Download


  1. or download this
    
#!/usr/local/bin/perl -w 
...
printMsg();
#### end of program
  2. or download this
    #!/usr/local/bin/perl -w
open(FD,"a|");
while (<FD>) {
  print $_;
}