open(frame,$filename) or die "Couldnt open '$filename': $!";
while(<frame>)
{
    print "$_\n";
}