pipa ingående mail till screens hardstatus.

hej jag har följande skript som från början skickar meddelande till hardstatusen för ingående mail. Men nu vill jag att den ska skicka direkt till hardstatusen _och_ även vänta ett antal sekunder för att sedan skicka en hardstatus till screen.

tail -f ~/Mail/from |perl -ne 'system "screen", "-X", "hardstatus", "alwayslastline", "New mail from $1" if /^From (\S+) /'

Om det är någon som har någon aning om hur man ska göra så skriv.

Edit: Följande kan användas för att pipa inkommande mail från en procmaillog till screens hardstatus

tail -f ~/Mail/from | screenmail.pl

---------screenmail.pl------------------

#!/usr/bin/perl -n                                                                                                                                                                             

if (/^From (\S+)/) {
  system
    "screen",
    "-X",
    "hardstatus",
    "alwayslastline",
    "%{+B w}%{.wK} New mail from $1 %=%{+B w}%{.wW} %H %{.wW} %c";

  sleep 2;

  system
    "screen",
    "-X",
    "hardstatus",
    "alwayslastline",
    "%{+B w}%{.wW} test %=%{+B w}%{.wW} %H %{.wW} %c";
}