1#!/usr/local/bin/perl5
2#
3# $Id$
4#
5
6# UNDER LSF DETERMINE THE TIME LEFT TO A BATCH JOB
7
8# PRINT THE TIME LEFT IN SEC ON STDOUT AND EXIT(0)
9# ON FAILURE EXIT(1) AND PRINT NON-INTEGER MESSAGE.
10
11