sub mysub($) {
  my $str = shift;
  #code
}

$filename = 'somefile.ext';
open IN, $filename;
$subref = <$filename>;  # maybe it's 'mysub'?
chomp $subref;
no strict 'refs';
no strict 'subs';
&{$subref}( 'text' );