Значи това което се мача да накарам да прави скрипта е да
 зима информация от даден фаил и да го вкарва в няква
променлива примерно $message =

 Някои ако може да ми помогне или да ми даде няко примерен
или подобен скрипт

#!/usr/bin/perl

use warnings;

$file = 'ime-na-faila.txt';

$message = '';

open(FP,"<", $file) or die "Unable to open: $!";
while(<FP>) {
     $message = $message . " " . $_;
}
close(FP);

open (FP,"path/to/file.txt");
@msg=<FP>;
close (FP);

Не се МАЧИ, а ВЗЕМИ да използваш google.