article2-1.psgi

#!/usr/bin/plackup
use strict;
use warnings;
use Plack::Request;

my $app = sub {
  my $req  = Plack::Request->new(shift);
  my $file = $req->parameters->{filename};

  open my $fh, '<', $file or die "Can't open $file: $!\n";

  return [ 200, [ 'Content-type' => 'text/plain' ],
           [ <$fh> ] ];
};