Code: Perl
#!/usr/bin/perl

use Net::POP3;
use MIME::Parser;

my $pop = Net::POP3->new('localhost', Timeout => 60);
my $p = new MIME::Parser;

if ($pop->login('your-username', 'your-password') > 0)
{
    my ($num,$size) = $pop->popstat;
   
    for(my $i=1;$i<10;$i++)
    {
        my $m = join('',@{$pop->get($i)});
        my $mo = $p->parse_data($m);

        if($mo->head->get('Subject') =~ /your reqd pattern/)
        {
           my $msg = MIME::Lite->new(
                From    => 'hans@hans.com',
                To      => $mo->head->get('From'),
                Subject => "Reply",
                Type    => 'text/plain',
                Data    => q[Hello, how are you?]
            );

            open( MAIL, "|/usr/sbin/sendmail -t" ) or warn($!);
            print MAIL $msg->as_string;
            close MAIL;
        }

        $pop->delete($i);
    }
}

$pop->quit;

Last edited by pradeep; 30Jan2010 at 10:23..