#!/usr/bin/perl # скрипт печатает сам себя open FL, $0 || die("ERROR: $!"); print while <FL>; close FL;