my $perl = read_file( $_ );