#!/usr/bin/perl -w

@files = `ls`;

foreach $file (@files)
{
    chomp($file);
    system "emacs $file";
}