#!/usr/bin/perl -w

open(GRADE, "/home/jesse/Desktop/grades/history.txt")
    or die "Can't open '/home/jesse/Desktop/grades/history.txt': $!\n";

while ($test = <GRADE>) {
    ; # do nothing
}
print $test; # print last line
close GRADE;