#!/usr/bin/perl
print join(' ', grep(-T, @ARGV)), "\n";
