#PERL Program to Propose a girl. add modules as per your wish

package main;

use STD.pm
use ISD.pm
use PCO.pm
use Love.pm
use constant CUTE => beautiful_girl_or_ladies;

goto all_colleges_and_universities;

$ladies = chomp(<STDIN>);

if ( $ladies eq Cute ) {
    $cute_girls_count ++;
}

while ( !$reply ) {
    print HEART "I LOVE YOU";
    $reply = chomp(<STDIN>);
}

if ( $reply !~ /I LOVE YOU/i ) {
    goto all_colleges_and_universities;
}
else {
    $lovers_list{$ladies} = 'my_lover';
    goto restaurant;
}

restaurant: 
{
    $food++;
    $smile++;
    $guy_money->pay = $lover_money->get;
    goto all_colleges_and_universities;
}
 
if ( $time eq '02.30pm' ) {
    goto cinema;
}

cinema:
{
    $watch++;
    if ( $intermission ) {
        $coke ++;
        $popcorn ++;
        $ice_cream++;
        $guiness ++; # Europe special. Varies depends upon country
    }
}

if ( $time eq '06.00pm' ) {
    goto park;
}

park:
{
    for ( $time = '06.00pm'; $time <= '08.30pm'; $time += 0.0001 ) {
         $kiss ++; # I can tell only that, it is upto the reader to us
+e any varaibles ;).
    }
} 

goto home; 

if ( $time eq '09.30pm' ) {
   goto pub;
}
 
pub:
{
    $friends ++;
    $party ++;
    $booze ++;
    $smoke ++;
    if ( $pub->close() ) {
       $pay->bill();
       $come->out();
    }

    if ( $highly->intoxicated ) {
        goto friendsroom;
    }
    else {
        $sweetpan ++;
        $polo ++;
        goto home;
    }
}

friendsroom:
{
      goto sleep;
}
 
home:
{
      if( $mom->shouts() )
      {
        $reasonfiltered = ( $combinedstudy || $projectwork || $friends
+bday );
        $say->reason();
      }

      if( $dad->shouts() ) {
    $shut->yourmouth();
      }

      $call->lover();

      if( $phone->voice eq ( $lover_dad->voice() || $lover_mom->voice(
+)) )
      {
         $hang ++;
      }
      else if( $phone->voice() eq $lover->voice() )
      {
        for( $time = '12:30' ; $time <= '1.30'; $time += 0.001 )
        {
           $say->ILuvU() ;
           $reply = chomp(<STDIN>);
        }
      }
      goto sleep;
}
 
sleep:
{
      $dream = 'love';
}
[download]

Considered by xorl: Since the plagiarism has been uncovered why don't we reap this node.
Unconsidered by planetscape: keep (and edit) votes prevented reaping ( keep: 10 edit: 1 reap: 12 )