Select Code to Download

use autodie qw/ system /;
my @args = qw[ ./gbak -user sysdba -password masterkey -BACKUP_DATABAS
+E ];
...
use Data::Dumper;
print "Trying to system(@args) ", Dumper(\@args ), "\n";
system @args;