How do you use securing web apps (CSRF, XSS) with a short example?

    # Example of a security measure against CSRF
    use Digest::SHA qw(sha256_hex);
    my $session_id = "example_session_id";
    my $csrf_token = sha256_hex($session_id . time());

    # Use this token in your forms
    print "
";
    print "";
    print "";
    print "";
    print "
";

    # Example of sanitizing user input to prevent XSS
    my $user_input = param('data');
    $user_input =~ s/</&lt;/g;  # Encode < to <
    $user_input =~ s/>/&gt;/g;  # Encode > to >
    print "User input: $user_input";