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

##</code><code>##

#!/usr/bin/perl -w
use strict;

##</code><code>##

open "something", ">/dev/null";

##</code><code>##

#!/usr/bin/perl
use strict;
open ThisWorksGreat, ">/dev/null";