#! /usr/bin/perl -w
  use strict;
  $|=1;

  print "Once\n";
  sleep 2;

  print "Input Please?\n";

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

  sleep 5;
  print "Twice\n";
  exit 0;