#!/usr/bin/perl open (LASTCOUNT, "/tmp/count.out") || die "cannot open the file"; $line = ; close(LASTCOUNT); print $line;