##################
print "Once\n";
sleep 2;

print "Input Please? ";

$line = <STDIN>;
chomp $line;
print "You got: $line\n";

sleep 5;
print "Twice\n";


##################