#!/usr/bin/perl
open  something, ">/dev/null";
print something "happilly\n"; # then
close something; #back up...