my $filename = $ARGV[0];
open (_filehandle_, "<$filename") or die "Meeeeep! $filename does not exist!\n";
my @file = <_filehandle_>;
close (_filehandle_);
my $line = join "", @file;
my $results = eval ($line);
print '$results: '.Dumper($results);
my $colpattern = $results->{"col_pattern"};