my $string = "Perlisch ist nicht schwer!";
my $int = 42;
my $pi = 4 * atan2(2.0,2.0);

printf("Schönes Datumsformat:\n");
printf("%.2d/%.2d/%.4d\n\n", 7, 14, 1789);

printf("Pi in verschiedenen Formaten:\n");
printf("%.Of  %.lf  %.2f  %.3f  %.6f  %.10f\n\n", 
        $pi, $pi, $pi, $pi, $pi, $pi); 
printf("%.Oe  %.le  %.2e  %.3e  %.6e  %.10e\n\n", 
        $pi, $pi, $pi, $pi, $pi, $pi);

printf ("String linksbuendig      %-12s\n",$string);
printf ("String rechtsbuendig     % 12s\n",$string);
printf ("Integer linksbuendig     %-12d\n",$int);
printf ("Integer rechtsbuendig    % 12d\n",$int);
printf ("Gleitpunkt               %f\n",$pi);
printf ("Gleitpunkt als Exp.      %E\n",$pi);
printf ("Gleitpunkt linksbuendig  %-10.2f\n",$pi);
printf ("Gleitpunkt rechtsbuendig %10.2f\n",$pi);