<% $link %> <%ARGS> $file=>undef <%INIT> use vars qw($state); my $link=''; my $filename = $state->{crosslinks_dir}.$file; if(open(F,'<'.$filename)) { local($/)=undef; $link=; close F; }