#!/usr/bin/perl
print (time()-$ARGV[0]);