#!/usr/bin/perl -w
use strict;
use Fcntl;
$| = 1;

sub testme {
    my ($flag, $data) = @_;
    if ($flag == 1) {
        sysopen(FILE, 'bangbang',  O_WRONLY | O_APPEND |  O_CREAT);
        while (1) {
            syswrite FILE, "$data\n";
        }
    } else {
        open(FILE, ">>bangbang");
        while (1) {
            print FILE "$data\n";
        }
    }
    close(FILE);
}

testme($ARGV[0], $ARGV[1]);