#!/usr/bin/perl

use IO::CaptureOutput qw/capture_exec capture/;

sub mysqldump {
    system('mysqldump --add-drop-table -h localhost -u myuser -pmypass mydb ');
}

  capture \&mysqldump, undef, \$stderr, 'outfile.sql';

    if ($stderr) {
        print "FAILED: $stderr\n";
    }else{
        @args = ('gzip','outfile.sql');
        ($stdout, $stderr, $success, $exit_code) = capture_exec(@args);

        if (!$success) {
            print "Failed gzip: $stderr\n";
        } else {
            print "Success gzip\n";
        }   
    }