# Your code:
print "\nWorking on ".$dir."\n\n";

##</code><code>##

# print a list
print "\nWorking on ", $dir, "\n\n";
# Interpolate
print "\nWorking on $dir\n\n";

##</code><code>##

print q{Select an option: 

1) Create new XSPFs
2) Delete all XSPFs in dir and create new ones
};