{
	open my $fh, '<', $filename
		or die "Can't open $filename: $!\n";

	while ( <$fh> ) {
		next if not /ver = '(.*?)'/;
		$old_version = $1;
		last;
	}
}