Help for this page

Select Code to Download


  1. or download this
    open my $fh, "<", $0;
    print <$fh>;
    
  2. or download this
    use O 'Deparse';
    do something
    
  3. or download this
    seek *DATA, 0, 0;
    print <DATA>;
    __DATA__