Select Code to Download

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

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