my @args = ($program, $username, $user);
    system(@args) == 0
     or die "system @args failed: $?"  

##</code><code>##

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