#!/usr/bin/perl
$cmd = join(';', @ARGV);
system(qq{/usr/bin/perl -ne'\$|=1;$cmd'});