#!/usr/bin/perl -w

use strict;

chomp(my $num = <DATA>);

print "My counter is set to $num.\n";

$num++;

{
	local *FILE;
	local $/ = "\n__END__";
	open (FILE, "counter.pl") || die "Can't open my file for reading: $!\n";
	chomp(my $file = <FILE>);
	close FILE;
	open (FILE, ">counter.pl") || die "Can't open file for writing: $!";
	print FILE $file, "\n__END__\n$num";
	close FILE;
}
__END__
0