use strict;
use warnings;
use IPC::Run3 qw( run3 );

my $FBUSER = 'SYSDBA';
my $FBPASS = 'masterkey'; # this is secret ;)
my $gbak = 'gbak';
my $host = 'localhost';
my $db = '/opt/databases/test.fdb';
my $bk = '/opt/databases/backup/test.fbk';

# Backup the database on remote (or local) server
my $cmd = qq{$gbak -backup -service "$host:service_mgr" "$db" "$bk" -user "$FBUSER" -pass "$FBPASS"};

run3 $cmd, undef, \my @out, \my @err;

print "STDOUT: $_" for @out;
if (scalar @err > 0) {
    print "\n--- Errors -------------------------------------------------\n";
    print " $_" for @err;
    print "------------------------------------------------------------\n\n";
}
else {
    print " Backup completed successfully.\n";
}