Perlでエディタもどきを作っていたが････

これはひどいｗ

#!/usr/bin/perl
use strict;
use warnings;

my $input;
my $filename;
my $argv=@ARGV;
my $i=0;



if($argv){
$filename=$argv;
}

else{
do{
print "Input file name:";
$filename=<STDIN>;
chomp $filename;
}until($filename);
}

open(FILE,">>$filename") || die "Open Error\n";

print "終了時はCtrl+Cでお願いします\n";

while(1){

open(FILE,">>$filename");

$i+=1;

print "$i:";

$input=<STDIN>;

print FILE "$input";

close(FILE);

}

スクリプトを書くぐらいにしか使えないな･･･
というか終了が強制終了って･･･
ファイルを開けたり開いたりしてるし