Created by www.tryperl.com.

own_box.pl

#Created by tryperl.com
use strict;
use warnings;

# you know, you could just use IPC::Open2 instead.

package Hide::System::Call;

use Filter::Util::Call;

sub import {
    filter_add(bless []);
}

sub filter {
    my ($self) = @_;
    my $status;
    if (($status = filter_read) > 0) {
        s/giraffe/system/g;
    }
    return $status;
}

package main;
use Hide::System::Call;

giraffe('/bin/ls /tmp');