$echo=`alarm() { /bin/perl -e "alarm shift; exec  @ARGV " '$@'; } ;alarm 4 " while [ 1 ]; do echo ' ' ;done "`;
print "$echo";