#!/usr/bin/env perl
# Ein "Perl-Skript" fuer die SP2 Aufgabe Mother, um offene 
# Datei-Deskriptoren aufzuzählen.

use 5.012;
use strict;
use warnings;
use Cwd 'abs_path';

my @fds = glob("/proc/$$/fd/*"); # see perlvar(1)

unless (@fds) {
  say "HTTP/1.0 500 Internal Server Error";
  exit 1;
}

say "HTTP/1.0 200 OK\n";
say "<h1>Open File Descriptors</h1>";
say "<pre>";
foreach my $fd (@fds) {
  say abs_path($fd);
}