#!/usr/bin/perl

use strict;

if (scalar(@ARGV) == 0) {
	die "Need to specify an offset to apply, in seconds.";
}
my $offset = $ARGV[0];
while ($_ = <STDIN>) {
	@_ = split(/\t+/, $_);
	my $new = $_[0] + $offset;
	print "$_[1]: $_[0] => $new\n";
	utime -1, $new, $_[1];
}
