#!/usr/local/bin/perl -w
# show-status.pl -- Zeigt verschiedene Informationen ueber das System

use strict;

print "Script started: ", scalar localtime($^T), "\n";
print <<EOSTATUS;
Base Index in Arrays: $[
Perl Version        : $]
Debugging Flag -D   : $^D
Max. open Filedesc. : $^F
Actual syntax Checks: $^H
OS-Name             : $^O
Debug Status        : $^P
Warning Flag (-w)   : $^W
Executable Name     : $^X
EOSTATUS