Select Code to Download

#!/usr/bin/perl
...
    $curr = $curr->{prev};
}

punit:Desktop punitpawar$ perl test1.pl 
...
Current: 30    Previous: 0    Next: line 1
Current: 0    Previous:     Next: 30

line1
line2
line3
line4