@contents = <>;
pop(@contents);
foreach $line (@contents) {
    print $line;
}
