#!/usr/bin/perl -w
use strict;

my $data_file = "record";

open(FILE,"$data_file") or die $!;
binmode(FILE);

read(FILE,my $time,3,0);
print "$time \n";
   
close(FILE);