--- a/tkviewtest
+++ b/tkviewtest
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 
 # Demo script using PDL::IO::HDF5 and Tk to show an HDF5 file structure
 #
@@ -13,7 +14,7 @@
  my $maxElements = 50;  # Largest Array  (in number of elements) that we 
  			# will try to show in a popup balloon
 
- my $filename = shift @ARGV || 'newFile.hdf5';
+ my $filename = shift @ARGV || 'varlen.hdf5';
 
  my $mw = MainWindow->new;