use autodie qw/ system /;
my @args = qw[ ./gbak -user sysdba -password masterkey -BACKUP_DATABASE ];
push @args, "localhost:$data$_" , "$tempdir$_.gbk";
use Data::Dumper;
print "Trying to system(@args) ", Dumper(\@args ), "\n";
system @args;