Help for this page

Select Code to Download


  1. or download this
    BEGIN {
  *CORE::GLOBAL::open = sub (*;$@) {
...
open(my $fh, "<", ".bashrc") or die "unable to use hacked up open func
+tion: $!";
my $top = <$fh>;
print $top;
  2. or download this
    LOGGING: intercepted `open` call from ( package: 'main', file: './core
+over.pl', line: '34' ) with args: '??', '', '<', '.bashrc'
# ~/.bashrc: executed by bash(1) for non-login shells.