use utf8::all;
require 'script2';

##</code><code>##

1 # again
2 use utf8::all;
3
4 sub openfile{
5	my $file=shift @_;
6	my $cont;
7	open my $fh, '<', $file || die "sopen: Cann't open  $file  $!";
8	do{
9		$cont.=<$fh>;
10	}until( eof( $fh ) );
11	close $fh;
12	return $cont;
13}