system( 'print.pl' );        
  # starts print.pl and continues when print.pl finishes

  # or alternatively

  do( 'print.pl' );            
  # Runs print.pl as if the text was typed instead of 
  # the do(...) line

  # or alternatively a version which is semi-portable to 
  # Windows as fork() dosen't really work there

  my $pid;
  $SIG{CHLD} = sub { wait };
  if ($pid = fork()) {
    # I am the master, so I continue here   
  } else {
    # I am the child, so I print
  };