St. Valentine's day is approaching. You may not be thinking about it, but she is. Don't be unprepared! Warm her up before the chocolates and roses arrive. Let her know that you love her all year long, not just Feb 14th. Just insert your own love lines and sweet words into this script and when ever you need more points with her, just "double click" and send you love.

#!/usr/bin/perl
# just put this bad boy on your desktop and 
# double click as needed. :)

use strict;
use Mail::Sendmail;

# you
my $self = 'Monk';
my $email = 'me@workplace.com';

# her
my $chicks_name = 'Chick';
my $her_email   = 'chick@mail.com';

my @cheese = (
"hey $chicks_name\n\n I hope everythings going well today.\n I just wa
+nted to drop you a line.\n\nLove always,\n\t$self",
"Baby,\n I just wanted you to know how much I love you. Youre great!\n
+\nLove,\n\t$self",
"I've been thinking about you all day. I can't wait to come home to yo
+u.\n talk to ya later,\n\t$self",
);

my @subjects = (
"hey babe...",
"a short message from your lover...",
"just wanted to say hi...",
"oh I love you...",
);

my %mail = ( 
To      => $her_email,
From    => $email,
Subject => $subjects[rand($#subjects)],
Message => $cheese[rand($#cheese)]
);

sendmail(%mail) || warn "$!";

[download]

Good luck! This code has been tested, but is still untested.... use at your own risk :)

-Silent11

In reply to St. Valentine's Day preperation script by silent11

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.