"today - 1" *g*
the little effort of "reading about it", and you probably have the program already done!
Good luck anyway!

#!/jpsama/bin/perl -w
$tks = `mount`;
$jpsama = $! if $!;
print $jpsama;