#!/usr/bin/perl

use strict;
use warnings;
use File::Spec;
use IO::File;
use autodie;

my $FH;
my @lines;
my $fn = 'D:\DATA\Software\MFLOW2\MOD_CL\INSTALL\MOD_CL\INSTALL\RDBMS\c$template.pks';

#my $fn = '..\todo.txt';

$fn = File::Spec->rel2abs( $fn ) ;

print "file: $fn len=" . length($fn) .  "\n";


open ($FH,'<',$fn);
@lines=<$FH>;
close($FH);