foreach (@files) {
        chdir($fbbin);
        print "Tworze kopie bazy $_ \n";
        system('./gbak -user sysdba -password masterkey -BACKUP_DATABASE localhost:$bazy$_ $kopie$_.gbk') or print "Blad archiwizowania bazy $_ \n";
        print "Gotowa kopia bazy $_ \n";

}