You forgot #5: Compile Parrot with the .NET C compiler. Which is probably the easiest way to get parrot running on a .NET system. (Though we'll emit .NET bytecode at some point)

open (PHONEBOOK, "/data/phone");
open (PICKUPLINES, "/data/lines");
@lines = <PICKUPLINES>;
while (<PHONEBOOK>) {
  my($firstname, $lastname, $number) = split /:/;
  print "Whoot!!!\n" if AskOnDate($firstname, $lastname, $number);
}
close PHONEBOOK;
close PICKUPLINES;

sub AskOnDate {
  my($first, $last, $num) = @_;
  foreach my $try (@lines) {
     print "Hey there $first, $try";
      if (Flirt::Getresponce eq "Slap") {
          print "Ouchie!\n";
      } else {
       return "$first $last";
      }
  }
}
[download]