#!/usr/bin/perl -w


my $prog = <STDIN>;


chop (my $x =  system("($prog) perl - e 'printf "x" x 2000') );