#!/usr/bin/perl -w
use strict;

#my $filename = '../frame.txt';
my $filename = $0;
open my $fh, '<', $filename
    or die "Couldn't open '$filename': $!";
while (<$fh>) {
    print "$_\n";
};