Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
                                                                          
    +          
    # Strict
    ...
    
    __END__
    foo
    
  2. or download this
    #!/usr/bin/perl -w
                                                                          
    +          
    ...
    
    __END__
    foo
    
  3. or download this
    $ cp z.pl /ram; perl /ram/z.pl
    Check file before unlink
    ...
    $ df -k /ram
    Filesystem           1K-blocks      Used Available Use% Mounted on
    none                       100         0       100   0% /ram