#!/usr/bin/perl
print `bash -c sauoq`