+ # Check for, and load comment from FILENAME.txt here..
+ my $comment = undef;
+ if ( -f $current . ".txt" )
+ {
+ open CF, "<" . $current . ".txt";
+ while (<CF>) { $comment .= $_; }
+ close CF;
+ }
+ if ( $comment )
+ {
+ $comment = $comment_pre . $comment . $comment_post;
+ }
+