#!/usr/bin/perl -w

open (IN, "one.seq.one.line") or die "can't open IN: $!";
open (OUT, ">out.index.pl") or die "can't open OUT: $!";
print OUT scalar(localtime), "\n";