# /etc/aliases
testbug: "|cat ./UpadteBug.pl"

##</code><code>##

#UpadteBug.pl
@Mail = <STDIN>;
foreach(@mail){
  print $_;
}