#!/usr/bin/perl

use POSIX;
my $ts1 = "$ARGV[0]";
my $ts2 = "$ARGV[1]";

$diff = ($ts1 - $ts2);
print int($diff);