Přesunutí ukázkového obsahu do adresáře „ukázka“ a vytvoření symbolického odkazu „vstup“, který na něj ukazuje.
Uživatel si může symbolický odkaz smazat a udělat si místo něj adresář „vstup“ nebo odkaz nasměrovat jinam.
#!/usr/bin/perl
# Projde zdroják v javě a najde v něm,
# jaké proměnné prostředí se nastavují pro běh skriptů
# Výstup: tělo XHTML tabulky (řádky)
use strict;
use warnings;
open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
while (<JAVA>) {
if (/"(.*)=".*\/\/\s+env:(.*)/) {
print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
}
}