Scott,
This script ends backup stg if it still runs after a certain time in the day. It
gets the proc number and strips out the
comma it one exists - then enters the cancel proc command.

#!/usr/local/bin/perl
open(procs, "dsmadmc -tabdelimited -id=***  -pass=*** q pr|grep 'Backup Storage
Pool'|");

while (<procs>) {
        $l=$_; chomp($l);
         @record=split(/\t/, $l);
        $procname="$record[0]";
$procname=~tr/,//d;
system("dsmadmc -id=*** -pass=*** can pr $procname\n");
                }

Regards,
Brian Johnson