Sure ... stuff this in your pipe and smoke it! pun intended

#!/usr/bin/perl -w
use strict;

print "I wonder what will happen?\n";

open ME, "$0|" or die "Cannot do $o:$!\n";
while(<ME>) {print;}
close ME;
[download]