sub hook {
        my ($filename, $buffer, $bytes_read, $data) = @_;
        print $::test;
}