income mail ... to a script

Hi,
I have  this procmailrc that i want him to send all incomming e-mail to 
the Perl script and and dump the orig mail to /dev/null.
i think i make it right ... but it is not working ...

Help ... ???

###############
My procmailrc
###############
:0 f
| /root/"MyPerl"

#################
My Perl :
#################
#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use URI::URL;
use Net::SMTP;
use MIME::Parser;
use MIME::Entity;
use Carp;


  my $smtp;
  $smtp = Net::SMTP->new('localhost');

  $smtp->mail('foo(_at_)bar(_dot_)com');
  $smtp->to('oren(_at_)bar(_dot_)com');
  $smtp->data();
  $smtp->datasend( "This is a test\nof a message sent via perl\n" );
  $smtp->dataend();
  $smtp->quit;

_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail