#!/usr/bin/perl
# скрипт печатает сам себя

open FL, $0 || die("ERROR: $!");
print while <FL>;
close FL;