#!/usr/bin/perl

$arg = shift || die "usage: tigre_job_cancel id\n";

$US = $ENV{'ULTRASCAN'};
print `echo tigre_job_cancel $arg > $US/etc/grid/us_gridpipe`;


