Select Code to Download

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

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