perl -MO=Deparse -le 'use Time::Piece; $x = localtime; $y = localtime - $x; print $y;'

BEGIN { $/ = "\n"; $\ = "\n"; }
use Time::Piece;
$x = main::localtime();
$y = main::localtime(-$x);
print $y;
-e syntax OK