#!perl
# some future version should do the |unshar in perl too!
while (<>) {
    open(XX,"|unshar");
    do { $_ = <>; print XX $_; } until ($_ eq "exit 0\n") || eof;
}