#!/usr/bin/perl

$buffer = $ENV{'QUERY_STRING'};  ## detta är den rätta!!

open(INF, "./secured/esastro_o_secure.cgi");	@data = <INF>;	close(INF);

$tot ="";

foreach $i (@data) {   	
  $tot = $tot."\n".$i;
}

##print "tot=".$tot;

eval($tot);