#!/usr/bin/perl
  use strict;
  use warnings;
  use diagnostics;
  
  print "foo\n";