#!/usr/bin/perl
use strict;

sub always__I_am_a_perl_lover
{
  print "I am always a perl lover, "
}

sub my_enemy_here
{
  `kill $$`
}

#starting my poem with
always__I_am_a_perl_lover;
print "My enemy is waiting to destruct my love, so I \n" and my_enemy_here;