my $line = do{ local @ARGV = 'test.xml'; <> };
print $line;