1package demo;
2
3
4sub read_file
5{	my( $path ) = @_;
6	my $data;
7
8	open(IN, $path) or die "cant open '$path'\n";
9	binmode IN;
10	read(IN, $data, -s $path);
11	close(IN);
12
13	return \$data;
14}
15
16sub write_file
17{	my( $path, $rData ) = @_;
18
19	open(OUT, ">$path") or die "can't open '$path'\n";
20	binmode OUT;
21	print OUT $$rData;
22	close(OUT);
23}
24
25sub generate_rand
26{	my $size = shift;
27	my @rand = ();
28
29	for( my $i = 0; $i < $size; ++$i )
30	{
31		push @rand, ((rand() * 0x100) & 0xFF);
32	}
33
34	my $rand = pack("C*", @rand);
35
36	return \$rand;
37}
38
39
401;
41