#!/usr/bin/perl

$name="/".$ARGV[0];
$name =~ /.*\/(.*)/;

print <<EOF;
                                      ,,,
                                     (o o)  File: $1
---*reiss*------*schnippel*------oOO--(_)--OOo-------*knabber*-----*fetz*---

EOF
while (<STDIN>) { print; }
print <<EOF;

---*reiss*------*schnippel*--------------------------*knabber*-----*fetz*---
EOF
