Select Code to Download

    my $dbh = DBI->connect(
        "dbi:Sybase:server=$server",
        $u, $p, { RaiseError => 1 },
    );
    $dbh->do('use msdb');

sub get_running_job_info {
    my ($dbh) = @_;
...

    return \@job_info;
}

        $job_id =~ tr/a-z/A-Z/;
        $job_id =~ s/^(..)(..)(..)(..)(..)(..)(..)(..)(.{4})(.{12})$/$
+4$3$2$1-$6$5-$8$7-$9-$10/;