#!/usr/bin/perl
use strict;
use mmm;

local* F;
mmm::fopen( *F, ">tst");
print F "hi";
mmm::fclose *F;