my $username = shift @ARGV;
my $user =shift @ARGV;