#! /usr/local/bin/perl
#


my $day = `date +%w`;
print $day;

if ( $day = "0" ) { $week_day = "su" }
                        elsif ( $day = "1" ) { $week_day = "mo" }
                        elsif ( $day = "2" ) { $week_day = "tu" }
                        elsif ( $day = "3" ) { $week_day = "we" }
                        elsif ( $day = "4" ) { $week_day = "th" }
                        elsif ( $day = "5" ) { $week_day = "fr" }
                        elsif ( $day = "6" ) { $week_day = "sa" }

                        print "$week_day\n";