netf0x

открывать файл надо так
open(KARTINKA, '<', '4.jpg');

где содержимое файла будет в Дескрипторе KARTINKA который прочитать можно так
print <KARTINKA>;

вот советую почитать учебник для новичков по перлу
http://dump.ru/files/n/n6133429141/
там есть раздел где описываются много функциий с файлами и папками