#!/usr/bin/perl -w

open(GRADE, "/home/jesse/Desktop/grades/history.txt");

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