#!/usr/bin/env perl -w#<br/>
print "Press w to write.\n Press q to quit\n";#<br/>
    while (my $userinp = <STDIN>) {#<br/>
	chomp $userinp;#<br/>
open(FILE, '>>', 'myfile.txt');#<br/>
	while ($userinp ne "q") {#<br/>
	    my $usi = <STDIN>;#<br/>
	    chomp $usi;#<br/>
	    print FILE $usi;#<br/>
	    print "Success - if this statecomes it should
mean succes.\n";#<br/>
		if ($usi eq "q") {#<br/>
		    close FILE;#<br/>
		    die("You have decided to kill this program\n");#<br/>
		}#<br/>
	}#<br/>
    }#<br/>