#!/usr/bin/perl

$FINFILE = "<" . $ARGV[0];
$FOUTFILE = ">" . $ARGV[0];

open(FIN, $FINFILE);
$line = <FIN>;
close(FIN);

if ($line =~ /^0 /) {
	$wr_data = "1 \n";
} else {
	$wr_data = "0 \n";
}		

open(FOUT, $FOUTFILE);
print FOUT $wr_data;
close(FOUT);

