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

{ # you can use -s defined variables here
  no strict 'vars';
  print $var;
}