#!/usr/bin/perl -l

use strict;
use warnings;

$|=1;

my $filename = '';
until ($filename eq 'q') {
    print "Enter a filename";
    chomp ( $filename = <STDIN> );
}