#!/usr/bin/perl -w
# legaget.pl

use strict;

my $filename = "ligatext.txt";

open FILE, "<", $filename or die $1;

while( my $line = <FILE> ) {
	
	print $line;

}

close(FILE);