#!/usr/bin/perl

use strict;

$main::var = "string";

print $main::var, "\n";