#!/usr/bin/perl
 
while ($uinput ne "quit") {
        print "# "; $uinput = <>;
 
        chomp($uinput);
 
        if ($uinput eq "ls") {
                open(LS, "ls -AF1 |");
                        while (<LS>) {
                                chomp;
                                push @flist, $_;
                        }
                close(LS);
 
                foreach $file (@flist) {
                        print "$file\n";
                }
        }
}