`Shell.pm`

        sub AUTOLOAD {
          my ($pack, $func) = ($AUTOLOAD =~ /(.*)::(.*)/);
          qx{$func @_};
        }

        $passwd = cat("</etc/passwd");
        print $passwd;

        sub ps;
        print ps -ww;

        cp("/etc/passwd", "/tmp/passwd");