@diary = 'path/to/diary.txt';
open(DIARY,">>@diary") or die "can't open file: $!";


##</code><code>##

$diary[$[] eq "/path/to/diary.txt";