if( open( MVMT, "< $Config{'temp_data_file'}_$Config{'current_period'}" )) { print "reading movement file in\n"; my $input; undef $/; $input = ; close MVMT; print "input: $input\n"; eval $input; print "I have evaled the input\n"; }