if (! @ARGV){
    die "need an argument...";
}
my $username = $ARGV[1];