#!/usr/bin/perl
open (my $fh, ">>foo.txt");
print $fh "iidx";