#Perl/Tk
use Tk;
$a="Hello world!";
$fname="hello.txt";
open OUT,">$fname";
print OUT "Hello world";
close OUT;
$mw = new MainWindow;
$lb = $mw -> Label(-text => $a);
$lb -> pack();
MainLoop();