#!/usr/bin/perl

$user = $ARGV[0];
open(MB,">>/home/mailboxes/$user");

while ($line = <STDIN>) {
   print MB $line;
};

close(MB);